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LLL II] BBB BBB RRR RRR TTT LLL | Ll 
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LIBSFILESCAN 18-$¢ -1984 52:1 AX-11 Bliss-32 V4.0-74 Pa 1 

1 =30071 382 90:38:48 ANBRTL SRETL IBF ICSCA. 682: 1 - (1) 
; 1 1 MODULE LIBSFILESCAN ( ! LIBFILESCA.B32 
; ¢ § BTITLE "Feacch : file wildcard sequence of files 
; IDENT = ‘'v03-024' 
3 fs 4 )= 
: 5 005 ! BEGIN 
: $ 009 : leuntenenaeenaeeatenernaneneneereteeereceettentnntentnennnntenannenenenentes 
H .* e 
3 § $08 1 !* COPYRIGHT (c) 1978, 1980, 1982, 1984 BY * 
3 10 Bat$ 1 !* DIGITAL EQUIPMENT EORPORATION, MAYNARD, MASSACHUSETTS. * 
3 1] ! ’ :* ALL RIGHTS RESERVED. * 
3 ! * 
3 18 Big 1 '® THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * 
; 14 014 1 !* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * 
3 15 0015 1 !* INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * 
3 16 8218 1 !® (COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
3 17 001 1 !* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
3 \3 Bag ' ‘* TRANSFERRED. * 
3 ! * 
; 0 0020 1 !* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
; 1 0021 1 !* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
3 ¢ 88 § : be CORPORATION. * 
3 if ® 
3 4 0024 1 !* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 
3 5 0025 1 !* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * 
BET 
: ; 4 : WETTTITITILILILITLLL LLL LLL LLL LLL LLL LLL LLL LLL LLL) 
. 1 
: 30 0030 1 i++ 
: 1 0031 1 ! FACILITY: General Utility Library 
3 ¢ ht 1! 
: ; B08 1 ! ABSTRACT: 
3 4 0034 1! This module contains routines which can be used to find all 
; # Boge : files that match a wildcard file specification. 
: 7 0037 1 | ENVIRONMENT: 
3 $ Base : VAX/VMS, User mode, Non-AST re-entrant 
; 40 0040 | AUTHOR: Tim Halvorsen, CREATION DATE: 1-AUG-1979 
: 43 04g 1 | MODIFIED BY: 
ay 043 1! 
; 44 044 1! v03-024 BLS0331 Benn Schreiber 9-JUL-1984 
; rh rf : Remove conditional compilation. 
: 47 be? 1: v03-023 BLS0321 Benn Schreiber 22-MAY-1984 
; 68 0048 1! If wild version, do not put it on related list over 
; $3 ths ' and over. 
; 2f 51 1! v03-022 BLS0319 Benn Schreiber 16-MAY-1984 
3 26 O36 1! For find_file, never use move_default to put at the 
3 5 a5 44 end. Save address of newly created default nam block 
3 e 035 : } for future reference. 
; 56 2$ 1! v03-021 BLS0317 Benn Schreiber 14-MAY~1984 
. ¥ 057 1! If a new default file spec is seen, put it in the 


LARSFILESCAN Search a file wildcard sequence of files 16-Sep-1984 90:36:13 yet 


v03-009 BLS0174 Benn Schreiber 1-JUN-1982 
Use LibSanalyzesdesc_re for arguments passed as 
string descriptors 


v03-008 BLS0133 Benn Schreiber 11-Jan-1982 
Make Lib$file_scan continue when it gets nopriv. Make 
Lib$Sfile_scan always copy expanded name str "9 to resultant 
name string on errors and network non-wild files 


v03-007 TMKO0001 Todd M. katz 31-Dec-1981 
Check for a PPF file before doing a $SEARCH. Do not do 
searches on PPF files. 


V03-006 MLJ0044 Martin L. Jack, 8-Sep-1981 14:00 


Sep-1 LIBRTL 
: a8 28 } } 5, of related files at current location, not at 
: 60 1 . 
3; 61 4 1! v03-020 BLS0316 Benn Schreiber 13-MAY-1984 
; 6¢ 6 ! Remove over-anxious edit in find_file. 
: 64 , 1! vO3~019 9150313 Benn Schreiber 7=MAY-1984 
; 665 5 1! Fix checking of default string in find_file to correctly 
: 66 be8 } decide whether to set default string in FAB. 
: 68 068 | i v03-018 BLS030 Benn Schreiber 27-APR=1984 
; +4 $ 13 In Lib$Sfind_file, fix wt lecerd version, and passing 
: 70 01: same filespec twice if nowild not set. Also, in 
: q} Bae) 1 LibSfile_scan_end, allow calling without fab argument. 
: bs G08 1 v03-017 BLS0307 Benn Schreiber 26-APR-1984 
: a Bate ! } Fix use of NOW!LD in LibSfind_file. 
: 7% 0076 i v03-016 BLS0297 Benn Schreiber 9-APR-1984 
; “a 0077 1! cerrestiy allow changing of the default file specification 
; re Bars : on new file specs in multi-file parses (Lib$find_file). 
; 80 0080 1: v03-015 BLS0283 Benn Schreiber 6-MAR=1984 
; 3} se : } Don't try to allocate O-length string in findfile. 
; HY 0088 1! v03-014 BLS0275 Benn Schreiber 25-FEB-1984 
3 Mf: Boee : Correct parse of null string to clear ESS and RSS 
; 86 0086 1 | v03-013 BLS0264 Benn Schreiber 24-Jan-1984 
; OOF 0087 1! Add support for multiple input filename stickyness. 
; §& 0088 1! Add new routines to deallocate saved context. Add conditional 
3 494 ’ to compile new interface for V3, for shipment in 3.6. 
; 0091 1 V03-012 BLS0254 Benn Schreiber 19-Dec-1983 
: O36 ' Correct handling of null file specs in LIBSFIND_FILE. 
; 0094 1 | vO3-011 BLSO243 Benn Schreiber 20-0¢ t-1983 
: it ! Fix handling of related nam block for searchlists. 
; 0097 1: v03-010 BLS0198 Benn Schreiber 13-Dec-1982 
3 0098 1! If non-wildcard call, do a parse of null string to clear 
3 1099 : } RMS internal context. 
; 1 
3 1! 
3 1! 
3 1! 
3 1! 
: 1! 
3 1! 
3 1! 
: 1! 
3 1! 
3 1! 
: 1! 
3 1! 
3 1! 


ee oo: 
PUMUOSS oe AR Oho VEAP Oe 
a ee ee 

=S 35245000 
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3 13 113 : H Correct problems when SPARSE fails. 

; 113 7 (1! v03-005 8LS0071 a nn Schreiber a2 Aug-1981 

3 \'8 1% : Correct looping riv violation in Lib$find_file 

5 120 120 1/3 v03-004 é $0065 Benn Schreiber 4~Aug~1981 

; (121 1 1; handling of devices mounted ee and m 

3 ; § : § : } Ak status into a longword out of the fab ter” Libstingd. file. 
5 124 104 1! V03-003 BLS0041 Benn Schreiber 23-Feb-1981 

: : 5 : 5 : Correct error in call to LibSfree_vm 

ah ; 1 $ 1 v03-002 BL$0027 Benn Schreiber 28-Nov-1980 

: : : 3 : } Correct protection violation handling in LIBSTIND” FILE 
3 130 0130 1! v03-001 LMK0001 well 19-Sep-1980 

3 : ; 4 5 ' Recode in BLISS he oad” LIBSFILE_SEARCH. 
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PSECT OWN = _LIBSCODE; 

PSECT PLIT ="_LIBSCODE; 

RMSNMF : LONG INITIAL (RMS$_NMF); 
WILD_VER = UPLIT(';*#"); 

Define the storage context used by LIBSFIND_FILE 


BIND 


CSOnou 


LITERAL 


ointer to default str 
NAM 
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LIBS ILESCAN Search a file wildcard sequence of files 18-56 -1984 00:52:15 AX-11 Bliss-32 V4.0-74 Page 4 LIB 
VO e soot Declarations ’ 127808-1 3b 90:38:48 LIBRTL.SRCILIBFILSCA.B 2;1 . (2) 03 
; } : } ; ] ZSBTTL ‘Declarations’; : 
Ra 155 1 SWITCHES : 
3; 3% 1 $ 1 ADDRESSING_MODE (EXTERNAL = GENERAL 'Declare addressing modes ; 
4 8 137 1 NONEXTERNAL = WORD_RELATIVE); : 
. 3 1 3 1 LIBRARY : 
3 179 17 ! "RTLSTARLE'; 'System symbols | ; 
5 146 124 1 REQUIRE | ; 
3 127 \46 ! "RTILIN:RTILPSECT'; Define PSECT declaration macros : 
; 146 3s 1 DECLARE_PSECTS (LIB); 'Declare PSECTs for LIB$ facility | : 
: 16 40 1! ; 
; 148 41 1 ! LINKAGES: ; 
18 gt ed 
$ 183 44 1 LINKAGE : 
| 126 45 1 JSB_ANALYZE_SDESC = JSB (REGISTER=0; REGISTER=1, REGISTER=2) . 
: 133 0246 1 NOTUSED (3,4,5,6,7,8,9,10,11); | : 
.. ta. 0 48 1 FORWARD ROUTINE : 
3 138 49 1 COPY_ESL_TO_RSL : NOVALUE, ‘Copies ESL to RSL ; 
3s 35 0250 1 COPY-FILE_STRING, ‘Copy file string to VM : 
; 158 8 51 1 DUMMY_ROUTINE, ‘Dummy suc/err routine : 
; 159 26 1 LIBSFILE SCAN, ‘Wild card scan using FAB : 
: 160 8 53 1 COPY_RESOLT_NAME : NOVALUE, i G9y result string ; 
; L e 3 'W card scan using context ° 

19 8 30 : 1BSFIND_FICE wild d | ‘ 
H 188 8 28 1 EXTERNAL ROUTINE . 
3; 164 57 1 LIBSANALYZE_SDESC_R2: GOB JUALVER OEE, {tno} 00 string descriptor : 
: 165 0258 1 LIBSFREE_VM, 'Deallocate virtual memory | F 
3 HS 8 59 1 LIBSGET ‘Allocate virtual memory 3 
: 16 60 1 LIB$SCOPY_R_Dx; iCopy string ; 
; 168 0261 1! : 
: 169 6 1 ! Local storage ; 
; 170 65 1! , 
s 171 1 : 
: He 1 : 
e oF 1 ‘ 
3; «174 1 : 
; 7 1 : 
.- on 1 : 
. Or 1 : 
. on . ; 
» Vr 1 3 
; 180 1 2 
; 18 1 3 
; 18 1 ; 
; 18 1 : 
; 184 1 ‘ 
jag 1 . 
<3 1 : 
2. 1 : 
| 1 ° 
ae 1 : 
o> % 1 : 


PROPIPEPOPSPOPIPOPENPINIPIPININININIPININY 
coop cD0D NNN NIAAA O 


1 

$ NAM_OFF = FABSC_BLN, ! Offset to NAM block 
RNAR_OFF = NAM_OFF + NAMSC_BLN, ' Offset to related NAM block 
ESBUF_OFF = RNAM OFF + NAMSC BLN, ! Offset to expanded name 

5 RSBUF-OFF = ESBUF_OFF + NAMSC_MAXRSS ! Offset to result name 
STATUS_OFF = RSBUF_OFF + NAMSC_MAXRSS, | Offset to next status 
INTFLAGS_OFF = STATUS OFF + 4, ! Offset to internal flags 

: _PTR™= INTFLAGS_OFF + 4, P ng 

' 


oc 
CONTEXT_SIZE = DNAM_PTR + 4; Total size of structure 


— | 


LABSEALESCAY —fearchyayfite wildcard sequence of tiles 1E-HEectgge Ogssg:1g YASH SLiserHE We 0G748 ae 


191 

3 : 5 : Define shared messages 

ah P 1 $SHR MSGDEF (LIB, 2) LOCAL, 

: 195 1 (NOWILD, ERROR) ); ‘wildcard filespec and NOWILD set 
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wildcard sequence of files 16-Sep-1984 00:52:1 AX-11 Bliss-32 V4.0-74 p 6) 
ING Copy lignans string for next 1o=808- 1382 90:38:48 LIBRTL.SRC ibe YegeaB%2:1 eon ) 


seats 
197 
13 


“” ts 
o we 


—— we 
zr 


i—— te 


"COPY tt STRING coer filename string for next input file parse’; 
E COPY_FILE_STRING(CONTEXT,FAB) = 


This routine copies the file speci tied by fab$b_fns/l_fna to 
a Block of nen bl allocated with Lib$get_vm. This block also 


conta anam block. These are used on a subsequent call to 
filescan to prev de the related file name(s), and is done this 
way because RMS needs access to the filename strings of all previous 
file specifications should any of them contain a searchlist. | 
/ 
Inputs: } 


Context = 0 or address of context longword passed by user 
fab = address of fab 


ARANVLS SVE 


Outputs: 


The memory is allocated and the block is added into the List 
of related nam blocks. If no context was passed by the user, 


| 
| 
| 
nothing is done. 


Sees 


SOONOUES WN" OOONAULS WN —OO@W 
6 
m 


: If compiling for V3 system, the expanded string from the NAM 
biock is used, rather than fns/fna. Also, the related NAM block 


ee tt ee 


(found via NAMSL_RLF) must already point to a valid related 
NAM block. 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
BEGIN 
MAP 
FAB : REF S$BBLOCK; 
LOCAL 
CTX : REF VECTORC,LONG), 
STRSIZE 
RNAM : REF S$BBLOCK, 


NAM : REF $BBLOCK 
NEWBLOCK : REF $BBLOCK, 
STATUS; 


1 
: If no context passed by user, then nothing to do. 


if (CTX = .CONTEXT) EQL 0 
, THEN RETURN 1; 


Allocate a block big enough for a NAM block and the filename string | 
} 


WAAL AI AAAI NIAAA AAAI WAI AIAIAAI AAAI IIorornornorornornononsn 


ALAA AR OROPURORUROPURUTURD 3 2 SS ee 


SOSA oS Sb etc nab tiandathb ab 


Wwn—O0@n 


STRSIZE = .FABCFABSB_FNS); 
STATUS = LIBSGET_VMCIREF (NAMSC_BLN¢.STRSIZE) ,NEWBLOCK) ; 


»STATU 
: THEN RETURN .STATUS; 
Initialize the NAM block, and copy the filename string 
CHSMOVE (NAMSC_BLN, 
RSL SIJE 


$8 E; 
sec4s8) = ISTRSiZE; 
SL-RSA) = .NEWBLOCK+NAMSC_BLN; 


— 


FABCFABSL_NAM], .NEWBLOCK) ; 
NEWBLOCK (NAM = STR : 
NEUBLOCKENAR 


NEWBLOCK 


Be Be Be Be Oe Be Se Se Se Se Se Se Fe Se Se Se Se Fe Fe Ge Ge Se Se Se Se Fe Se Se Se Ge Se Se Se Se Ge Fe Se Se Se Be Se Se Se Se Se Se Se Se Se Ss Oe Ge Se FH Se Se Se 


VU RSLS 
COnoOuw 
Sooooooooooo 
= WAWAAIW 
MEW —OOONOUS wh 


S 
wn—o 
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3; Routine Size: 


Prqvence of files 
Lename string for next 


Scethanas-£864 = § 
L NARSE dvI 


( N WALOCKENAMST DVI)); 
SHOVE. STRSIZE, FABEFABSL FNAD. -REWBLOEK+NAMSC_BLN) ; 


I 
! 
! Link this nam/filespec block into the List of blocks 


; 
9 
0 
! 
é 


-TITLE 
- IDENT 
-PSECT 
000182CA 00000 RMSNMF: .LONG 
00 00 2A 3B 00004 P.AAA: .ASCII 
WILD_VER= 
~EXTRN 
~EXTRN 
XTRN 
O3FC 00000 COPY FILE STRING 
5E 08 C2 0000 SUBL2 
59 04 AC 0 000 MOVL 
4C 13 00009 BEQL 
58 8 AC 00 00008 MOVL 
56 4 A8& 9A QOOOF MOVZBL 
04 AE 9F 00013 PUSHAB 
04 AE 60 A6 YE 00016 VAB 
04 AE 9F 00018 PUSHAB 
000000006 9 F th; CALLS 
E9 000 BLBC 
04 «AE 0° 0028 MOVL 
67 : 8 0060 F § 00 MOVC3 
A 6 ; 00 MOVB 
2 A? 56 90 000 MOVB 
4 A? 0 <A? 9E 8 MOVAB 
A A? B4 4 CLRW 
00 6E 0 C 0004 MOVCS 
14 =A 0048 
60 A7 _m «6 26 28 QOOGA MOVC3 
10 =A g D 50 MOVL 
9 7 O 4 MOVL 
0 01 4 7 1$: MOVL 
4 A 2%: RET 
91 bytes, Routine Base: _LIBSCODE + 0008 


a 
13 AX-11 Bliss-32 V4 20-748 Page 7) 
4 LIBRTL.SRCILIBFILSCA.B32;1 (3) 
| 
LIBSFILESCAN Search a file wildcard sequence of 
\V03-024\ 
_LIBSCODE,NOWRT, SHR, PIC,2 
99018 : 
\3 *\<0><0> 8 
P.AAA 
LIBSANALYZE_SDESC_R2 
LIBSFREE_VM, LIBSGET_VM 
LIBS$SCOPY_R_DX 
Save R2.R3,R4,R5,R6,R7,RB_RO : 0290 
CONTEXT, CTX + 0330 
FAB, R8 + 0335 
52(R8), STRSIZE ; 
NEWBLOCK > 0336 
96(R6), 4(SP) : 
$2. LBs ET_VM ; 
STATUS $§ ¥ : 0337 
NEWBLOCK , R7 : 0342 
#96, a40(RB), (R7) : 
STRSIZE, 3(R?) > 0343 
STRSIZE, 2(R7) + 0344 
(R7), 4(R7) : 0345 
i9cR?) : 0346 
#0, (SP), #0, #16, 20(R7) ; 0348 
STRSIZE, @44(R8), 96(R7) > 0349 
(CTX) 16(R7) ; §303 
He Be 
: > 0356 


wildcard sequence of files Sep-1 AX-11 Bliss-32 ¥4.0-74 Pa 8 
SL Copy Euponded Name String to Re b-3ep-19 99: 38: 43 LIBRTL.SRCILIBFI YeseaB$2:1 - (4) | 


) 
| 
*COPY ESL TO Rat Sony xpended Name _String to Resultant’; | 
| 


segs 


“” 
re 
—— we 


ies on 
(——+ + -— 
2r- 


— COPY_ESL_TO_RSL : NOVALUE = 
This routine ot up the resultant name string data 
in the loc t is called in the case of an 
error from PARSE/SSEAREH or on network non-wild 
card operations. 

Inputs: 


FAB = FAB address 
NAM = NAM address 


Outputs: 


NAMSB_RSL setup with Length of string copied into 
resultant name string buffer pointed to by NAMSL_RSA. 


Be Se Se Se Se Ge Se Se Se Se Ge Se Se Ge Be Se Ge Ge Se Se FH Se Se Ge Se Ge Ge Se Se Ge Ge Ge Se Geese 

SN NNO OO 

= -—oO os 
SOooooooooooooooooooooooooooooOoOoOoOoOoOOoOO OlmU 


= POR WIWIWIIRORNONOPONOPUPONINUD) 2 2 2 ee 
faa 2 @ 
m 
vw oO 
oe 
z 


SSSSLESRANLSSELEALAN IS SaNSa 


7 FAB: REF BLOCKL,BYTE], ' FAB structure 

ie 4 NAM: REF BLOCKL,BYTEJ; ! NAM structure 

35 re | Dansta ket EQL 0 name not set u 

$86 THE cette ESLJ) Neo 1S ! If enpanded string present 
38 N THEN yey Sn J ant wa 

84 ARENA AMSB FSi}! ! then use it 

385 . NAMCNAMSL _ESAJ, .NAM NAMSL 

$09 ELSE BE ta ! No »eupended string, use 

38 RSL] = ,FABCFABSB_FNS]; ! th . sponens string from FAB 
388 CNSHOVE (RINT. NAMENAMSB_ RSS. .FABLFABSB. FNS 

4 : -FABCFABSL _FNAJ,.NAHCNAMSL _ ASAI) +” 

391 RETURN; 

392 ND; 


007C 00000 COPY_ESL Pa 


WO Save R2,R3,R4,R5,R6 ; 0358 
56 08 AC p 9 MOVL NAM, R6 > 0381 
A TSTB =—s-_- 3 (RO) ; 
39 4 BNEQ «6s 4$ ; 
03 Ab 0B Ag 9 MOVB 11(R6), 3(R6) > 0382 
15 1 BEQL $ ; 
51 2 a6 9A 0001 MOVZBL 2(R6), R1 > 0384 
1 A6 91 0001 CMPB 1(R65, R1 : 
04 16 OOOIA BGEQU 1$ ; 
51 0B Ab 9A 1 MOVZBL 11(R6), R1 ; 
04 86 0c 86 51 38 1$ move R1, a12(R6), a4(R6) ; 0383 
6 A p6 § 2$ MOVL FAB, RO : 038 
03 Ab 4 A MOVB 32(R0), 3(R6) ; 
51 2 Ab 9A MOVZBL 2(R6), R1 : 0388 


vga 


; Routine Size: 


earch a 
OPY_ESL_ 5° 


046 86 


69 bytes, 


st toby Expanded None {t rine to Re if: ep: 


51 
2c 80 


Routine Base: 


a 
* AEs 


-LIBSCODE + 0063 


138 A. 


OV? 
move 
RET 


36:15 


ah i 


AX-11 


LIBRTL. 


(RO), R1 


(RO), R1 
gackoy. 


Sees 


a4(R6) 


br tetas 2:1 


L 
V 


3 


wOESHAESC™ —Gaarihabut A wllsgecdeerrcee of ite CASSIS GBSSGSLS.WMNGAIMASCHR aGaZMhen «PP 
HE GHRE. 1 BSB The SRAMRTASOVTHEESPupryaastttvercor roweton 


0000 00000 DUMMY_ROUTINE: 
WORD 


50 01 DO 00002 MOVL 
04 00005 RET 


; Routine Size: 6 bytes, Routine Base: _LIBSCODE + O0A8 


Save nothing : 0394 
#1, RO é 
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LIBSFILESCAN Search a file wildcard sequence of files 1b-5¢ 1984 00:52:1 AX-11 Bliss-32 ¥4.0-74 Pa 11 
vos 08 PARSE _NULL_STRING Parse mult string to dealloca 1 300-1382 99538548 LIBRTL.SRC ier itgca-882;1 sas (6) | 
; SBTTL ‘PARSE NULL_STRING Parse null string to deallocate RMS context’; 

OUTINE PARSE_RULL_STRING(FAB) = 


Parse the null string to force RMS to deallocate any context 
saved by NAMS$V_SVCTX 


? 
| 
Inputs: 
fab = address of the fab 
Implicit outputs: 
SPARSE done on the fab to deallocate saved context 


LOCAL 
NAM : REF S$BBLOCK; 


Set up to parse the null string 


NAM = .FABCFABSL_NAM); 
IF .NAM NEQ 0 
THEN 


PRRPNPUNUN 3 2 


ee ee ee as 


WN "SO VOONOUSWN “OC OONOUS WN -O0@ 


BEGIN 
NAMCNAMSV_SVCTX] = 0; 
V"SYNCHK) = 1; 'In case of network SET DEFAULT 


SYN 
Lj = 
-RSLJ = 
NAMLNAM$B_ESS] = 
NAM 6 
= 

END; 
FABCFABSB_FNS) = 0; 


FABCFABSB_DNS) = 0; 
SPARSE (FAB=.F AB); 
RETURN 1 


WAI 


FRRRLLSLELELLLRRELRRELKKK 


1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1} 
BEGIN 
MAP 

FAB : REF SBBLOCK; 
1 


PERE 
wr 
oo 
Ee 


-EXTRN SYSS$PARSE 
0000 00000 PARSE_NULL_STRING: 
. WORD 


Save nothing : 0396 
51 4 AC DO 00002 MOVL FAB, R : 0419 
50 8 Al 00 00006 MOVL  40(R1), NAM ; 
12 13 00 OA BEQL. §=:*1$ : 04 
33° OA 80 i A C BICB2 #128, 51(NAM) : 04 
0B OA 8 00011 BISB2 #8, &(NAM ; 
02 AO B4 13 CLRW ¢(NAR) 3 04 
A AO B4 0001 CLRW (NAM) : 04 6 
10 AO 04 0001B CLRL 16 (NAM) : 04 
34 Al B4 1 1$: CLRW 52(R1) : 04 9 
51 Dd 0002 PUSHL R : 04 


VOs-ODG  ™ —-BARSE' NOLL STRING Parse malt string to dealloca 138 Sep-19be 49:36:08 EeTarte sresiier le sca.082:1 ne v0 
000000006 98 8 68 BB8h CALLS Ag S}SSPARSE i 0435 
D RET ; 04 


; Routine Size: 46 bytes, Routine Base: _LIBSCODE + OOAE 


voeropee ee PARSE NOLL. ST alne forse null cer Bip iy dealloca 1 1§-$e0-196 99: 38: 43 {YaRTLS sR ei8 brie 882; ;1 —_ FB 


; is r 5 } ROUTINE MOVE _DEFAULT_STRING(CONTEXT,FAB,ONMPTR) = 

: 34 4 ; 1/ Move the default string from the FAB to a NAM block at the end 
3 » r 3 } } of the related NAM block List 

: 388 ¢: Beh Kae 

; 4 tts 1; context = address of context longword 

; 2? 445 1! fab = fab address 

; 2$ te : dnmptr = (optional) address of longword to store nam block address 
3 28 m4 ! ; Outputs: 

: 360 $8 1! fabCfab$b_dns] zeroed. Default name string copied into allocated 
; ee re : nam bloch"which is Linked at the end of the related file blocks. 
: 36 451 1 je=- 

8 Be ee 

; 66 454 CONTEXT : REF VECTORC. LONG], 

H 6 0455 FAB : REF S$B8BLOCK 

; 68 0496 DNMPTR : REF VECTORC,LONG); 

; 370 0638 BUILTIN 

HY a re NULLPARAMETER; 

: 37 461 2 LOCAL 

: 74 46 STATUS, 

; 75 46 PNAM : REF $BBLOCK, 

; 76 beee RNAM : REF S$BBLOCK, 

: A Bee? TNAM : REF SB8BLOCK; 

; 9 0467 2 IF .FABLFABSB_DNS) EOL 0 

; 81 0469 2 RETURN 1; 

; HY 0471 2 ! Search the NAM blocks looking for a default file string 

; 384 047 ' block (noted by CNAMSB ESS] = &x' 0D" ) and see if that string 

; 385 7 i is same as new string. Return successfully if so. If not 

; y] rf then deallocate the one from the List, as we need a new block. 

: 388 ? TNAM = CONTEXTCO] - SBYTEOFFSET(NAMSL_RLF); 

3 89 7 PNAM = .TNAM; 

; 390 7 WHILE sh) |~ tims NEQ 0 

; 391 47 DO BEG 

: 4 480 PHAN = .TNAM: 

; 39 481 TNAM = . TNAMCNAM 

; 94 rt) IF . TNAMCNAMSB_ Bessy” Lh *xx*0D" 

i 308 4 é Tnen IF IN SEOLC. FABLE ARS NS),.FABCFABSL_DNA) 

; 3 5 4 NAM$B_RSLJ,. TNAMCNAMSL_RSAJ,0) 
; 39 $36 THEN FABLE 

; FABse_ DNS) = 0; 

; 400 3 

: 263 290 4 

: 108 491 4 PNAMCNAMS 


N 1;7 
END 
LIBSFREE img uae BLN + .TNAMCNAMSB_RSL]) ,ZREF(.TNAM)); 


12 
ard sequence of files 16-Sep-1984 


LIBSFILESCAN Search a file wilde e :52:15 AX-11 Bliss-32 V4.0-74 Ll! 
V May, PARSE _NULL_STRING Parse null string to dealloca 14-Sep-19 4 995 38:49 CYARTL SREIL IF IL SCAB 231 —_ BH v0 
; 6 49 EXITLOOP; : 
5 405 re END; ; 
; 4 494 END; : 
s & 495 ' ; 
: tbs 138 } Allocate a NAM+string block 3 
: 410 498 2 STATUS = LIBSGET_VM(ZREF (NAMSC_BLN+.FABLFABSB_DNS]) ,RNAM) ; ; 
; ai] 499 IF NOT .STATUS : 
3 418 301 RETURN .STATUS; 3 
: aig a } Link into the List, initialize the NAM block, copy the default name string. : 
: 41 505 2 PNAMCNAMSL_RLFJ = .RNAM; : 
: 418 P 306 SNAM_INIT (RAM=,RNAM : 
: 419 30 RSA= . RNANSNAMS¢ BLN): : 
; ¢ ° 209 ANAM NAMES TESS . iy "eae simu 'Identify i defaul i block 
3 = £x'OD'; ‘Ident t as default string nam bloc 3 
; 6 é 9910 CHSMOVE FABTEAB _DNSJ,.FABCFABSL_DNAJ, .RNAM+NAMSC_BLN) ; ’ ; 
3; 4 511 FABCFAB$B_DNS] = 0; 3 
: 426 O51¢ IF NOT NUCLPARAMETER(3) ; 
; 425 051 TH 3 
: 426 0514 DNMPTRCO) = .RNAM; 3 
: 427 0515 RETURN 1 ; 
: 428 0516 1 END; ; 
O1FC 00000 MOVE_DEFAULT STRING: : 
. WORD saye R2,R3,R4,R5,R6,R7,RB : 0435 : 
56 0c C3 90002 SUBL2 #12, SP 3 ; 
& 08 AC 00 0000 MOVL FAB, R7 + 0467 F 
58 A 3 00009 MOVAB 53(R7), RB ; : 
68 95 0000D TSTB (RB) : F 
20 13 0000F BEQL 2$ ; F 
54 04 AC 10 ¢ 69011 SUBL3 #16, CONTEXT, TNAM : 0476 ; 
55 54 D0 00016 MOVL §-TNAM, PNAM : 0477 F 
10 A& 05 00019 1$ TSTL 16( TNAM) : 0478 : 
43 13 0001C BEQL 6 4$ ; 3 
55 54 D Ooi MOVL § TNAM, PNAM : 0480 : 
54 10 A4 b0 0021 MOVL §16(TNAM), TNAM : 0481 : 
OD OA As 91 99 5 CMPB  =s-« TOC TNAM), #13 : 0482 : 
EE 12 9 BNEQ 1 ; : 
51 68 9A 09 B MOVZBL (RB), R1 + 0484 3 
50 03 Ad 9A 000 MOVZBL 3(TNAM), RO + 0485 : 
50 00 30 87 a 31 2D 00 CMPCS R1, a48(R7), #0, RO, @4(TNAM) > 0484 : 
Be i? A BNEQ b} } 3 3 
$8 9 C CLRB ss (RB) : 0487 : 
11 F gg: BRB S$ > 0488 : 
04 AE 54 po 40 3$: OVL TNAM, 4(SP) 3; 0490 3 
4 AE F 00044 PUSHAB 4(SP5 : : 
4 AE ; AS 9A 00047 MOVZBL 3(TNAM), 4(SP) ; : 
4 AE 00000060 8F £0 4C ADDL2 #96, 4(§P) ; : 
04 AE SF 00054 PUSHAB 4(SP) ; : 


m 12 
LIBSFILESCAN Search a file wildcard sequence of files 16-Sep-1 AX-11 Bliss-32 V4.0-74 P 15 
LOeeos PARSE_NULL_STRING Parse mull ste ng to dealloca 12: Sep- 1382 99: 36; 3 LIBRTL.SRC ibe legen BS2s1 a 
000000006 00 02 Fe 57 CALLS #2 LIBSFREE_VM ; 
19 A ‘ CLRL «16 (PNAM) : 0491 
0 af oF 4$: PUSH 3; 0498 
08 AE 6 A MOVZBL (RB), 8(SP) : 
M nooo Ais, 184,06" ! 
000000006 00 05 FB 7 CALLS #2, LIBSGET_VM : 
Son A BREA git St 8888 
10 8 56 00 0 1 MOVL RG, 16(PNAM) : 
0060 8F 00 6€ 00 C 5 MOVES #0. (SP), #0, #96, (R6) + 0507 
66 6002 F 80 8 MOVW #24578, (R6) ; 
a ee ee a a ar 
ah Ae a ee ; $308 
60 Ab 30 «87 $8 28 O0A moves RO, a48(R7), 96(R6) F 
68 94 000A CLRB ss (RB) + 0511 
03 6C 91 OOOAA CMPBs«C AP), #3 + 0512 
09 1 OOOAD BLSSU 5$ ; 
0c Ac D5 OOAF TSTL  12¢AP) ; 
04 13 000B2 BEQL 4«=sOS$. ; 
0c BC 56 DO 00084 MOVL R6, @DNMPTR 3: 0514 
50 01 00 00088 5$: MOVL #1. RO + 0515 
04 000BB 6$: RET + 0516 


; Routine Size: 188 bytes, Routine Base: _LIBSCODE + OODC 
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LIBSF ILESCAN Search a file wildcard sequence of files 16-Sep-1984 00:52:1 AX-11 Bliss-32 V4.0-74 Page 16 { 
WOse0o% LIBSFILE_SCAN File scan given FAB and NAM block 13-308-1382 99° 38548 LIBRTL. Resor Sea. BS2:1 ’ (8) v0 
; 4 17 1 SSBTTL ‘LIBSFILE scan File scan given FAB and NAM block’; : 
; ? ; 13 ! GL AL ROUTINE LIBSFILE_SCAN(FAB,SUCCESS_RTN,ERROR_RTN, CONTEXT) = : 
: 4 01! ; 
3 6 ae This routine is galled with a wildcard file specification : 
>; «435 5 § . 2 and calls a specified set of action routines for rt be file : 
; 4 > 1? and/or error found in the wildcard sequence. Certain errors ‘ 
3 & 524. 1! are checked for in order to allow the search sequence to be : 
; 438 y+ a completed oyen though errors Like nopriv are present. ; 
; 439 5 § 1! Stickyness is also handled if this routine is called once : 
: rr 5 : for each file specification parameter in a command Line. . 
3 ie ; ; : } Inputs: : 
3 444 sa) 1 3 FAB = FAB address. fFABSL_NAM must point to a valid, initialized ; 
3 6445 05 ¢ 1! NAM block with both expanded and resultant string : 
3 «644 05 1! buffers present. : 
; 44 0534 1! SUCCESS_RTN = file success action routine address ; 
3; 448 B2 7 23 he success routine is called with one argument, 3 
3; 449 536 1! which is a pointer to the FAB. ; 
; 450 beep 1} ERROR_RIN = error action routine address 3 
; 451 0538 1! The error routine is called with one argument, : 
3 $26 0539 1! ohh is a pointer to the . 3 
; 45 0540 1! CONTEXT = COPTIONAL) address of longword used for keeping context 3 
3 454 0541 1! for multiple input file related file gcocesa ing. 3 
3; 6455 B2e6 1! The longword should be zeroed on the first call, : 
; 456 0545 1! and LIBSFILE_SCAN_END should be called after each : 
; 457 0544 1! set (command Line) has been processed to deallocate 3 
3 $38 beee ’ the allocated context. : 
: 460 209 1 ! Implicit inputs: 3 

461 548 1! : 
$ $66 0549 1! The FAB must be initialized as a FAB with a pointer to a valid : 
3 ree beee ! NAM block. : 
: 465 0552 1 ! Outputs: F 
: 466 0553 1! 3 
3; 467 Beee 1! The action routines are called appropriately. This 3 
3 $88 0856 : } routine returns when there are no more files. : 
: 470 557 1°! Implicit outputs: : 
: oh) 335 fi 
: th 299 1 Routine values: : 
: ! ny va status code ; 

475 562 1! A Lid RMS d : 
3; 47 5635 1! : 
3; 467 564 1 !e-- : 
; $78 3? BEGIN ° 
; 480 265 GLOBAL BIND 3 
; 481 223 FMGSFILE_SCAN = LIBSFILE_SCAN; ! Define old name 3 
; 48 28 LOCAL : 
; 48 570 TATUS, ' Routine status ; : 
; 484. 571 SUC_ROUTINE, ' Address of success routine : 
; «485 276 ERR_ROUTINE, ! Address of error routine : 
: «6 057 CTX, ! Address of context longword : 


13 
LIBSFILESCAN arch a file wildcard sequence of files 1b-se =1984 00:52:15 AX-11 Bliss-32 V4.0-74 Pa 17 
vOs-006 BSFILE_SCAN File scan given FAB and NAM block 10-808- 1386 99538549 LIBRTL.SRC (ier LLSca- 68231 ve (8) 
487 7 NAM : REF LOCK, ! NAM block address 
4 7 TNAM : REF S$BBLOCK, : jeseorary NAM block pointer 
m4 f _e RNAM : REF S$BBLOCK; ' Related file NAM block address 
f sul tin FAB: REF BLOCKC,BYTE); ' FAB structure address 


AP, CALLG,NULLPARAMETER; 


MACRO CALL_SUCCESS = 
(CALLG(.AP,.SUC_ROUTINE))%; 


MACRO CALL ERROR = 
, (CALLG(.AP,.ERR_ ROUTINE) )%; 


DONO MEW OOONOUSE 85 


If ROT NULLPARAMETE 
THEN 


SUC ROUTINE =_.SUCCESS_RIN; 
i NOT NULLPARAMETER(3) 


ERR_ROUTINE = .ERROR_RTN; 


i Tell RMS to save context over calls to speed ep tags up. This also 
causes directories to be read by RMS instead of the ACP. 

NAM = .FABLFABSL_NAM); 

NAMCNAM$SV_SVCTX) = 1; 

CTX = 0; 


Set up previous file specifications NAM List pointer 


IF NOT NULLPARAMETER(4) 

THEN BEGIN 
CTX = CONTEXT; 'Get address of context lLongword 
AMAL, PF 2 = ..CTX; 'Set related nam biock pointer 


fear alent oak al valvalvalwalvalval alval al alwal ab al Al al Ab Al Ab Al al Al alt dla ats 


DOOO0D00O 
BRLESRAN= 

Zz Ss 
SSSSR OSS SS SS SSS SSS 333 Se rw 


ARANWLSSSLEAEANLESSLSEALAVSS 


WNP AR WA OSSNEAR AS 


ee ed td ed dd ed od od 
o 

Oo 

Sooo 

oooo 

ono 


im 
BIFAEUNLSSSVER 
ao 
SOOONAUE WN SO OONOUES WN OO 


er rw 
WOO 


Parse the file spec 


oO 
AAD 
a ae ed ed ed ed ed ed 


FABCFABSV_NAM]) = 0; 'Clear in case previously set 
STATUS = SPARSE(FAB = .FAB); 

IF NOT .STATUS 
THEN GIN 


—OCONOUSWN—O 


ow 
m 


OPY_ESL_TO_PSL(.FAB,.NAM); 
CALL “ERROR; 


Ty teal eal ah al al ab Ab Ab Ab Ah Ah Ab db bed Ab dh db hb Ab Ah Ah ah ah ab sh sh ah ah sh sh sh ah ah ah al oe 


COPY“FILE STRING(.ITX,.FAB); 
RETURN .STATUS; 


END 
F ABLFABSV_NAM] = 1; ! Use NAM block 
i Copy the default file string to the end of the nam block List 
if we have a context block. 


if (.CTX NEQ 0) 


DAAAAOS 


PUPA AI 


| 
Set up error and success routines 
SUC_ROUTINE = DUMMY_ROUTINE; 
ERR-ROUTINE = .SUC ROUTINE: 
R(2) 
: 
| 
| 


sages 


4 


LESRASLSSSELEARLAVTLS SHVS ARAN SSS SLISAFERVISSSVSALUNLS 
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13 
e wildcard sequence of files 16-3 -1984 00:52:1 AX-11 BLi 
N File scan given FAB and NAM block 1 730071382 99:36:48 CTeRTL’ Rod 


si 
a IF (..CTX EQL 9) 

MOVE _DEFAULT_STRING(.CTX,.FAB); 
Handle the case of "n't alled with a related NAM block, but not 


the context block: a. his case, we save the expanded filename 


string. This w rovide the functionality seen in V4FT1. 


oa 


= .NAMCNAMSL_RLF); 
NAMCNAMSB._£ SCJ NEQ 0) 
D (.RNAM NEQ™O) 

AND (.CTX EQL 0) 

THEN BEGIN 

LOCAL 


RNAM 
IF ¢ 
AN 


STATUS_1; 
If -RNAMCNAM$B_RSL] NEQ 0 'Deallocate any previous 
Sey Bacar enhanc MEAD 
RSLJ = .NAMCNAMSB : 


SFSFS 


RNAMCNAMSB_ ‘ ; 
STATUS_1 = L TOSGETVACEREE (.RNAR NAM$B_RSLJ) ,RNAMCNAMSL_RSA}) ; 


IF NOT .STATUS_1 
THEN 


RETURN .STATUS 1; 
CHSMOVE (. RNAMCNAMSB_RSC], .NAMCNAMSL_ESAJ, .RNAMCNAMSL_RSA)) ; 


END; 
ABCFABSB_DNS) = 0; ! Clear default name string 


Ptottt tot tt tt 
MAMMA 


i If a@ wildcard version number was specified on this filespec 
' (via either FNM or DNM), then leave dnm set to ';*' so that 
! the version will be sticky. This is because RMS does not copy 


F 
‘ 
' 
] 
' 
the version field from related file name string. 
i 
T 


$3335 
on 
WN O OONA UES W 0 ODNOAUE WO 0 


oo 
= 


NAMCNAMSV_WILD_VER] 
BEGIN 


FABLE AgSB_pws} = ZCHARCOUNT(';*'); 
he FABSL_DNA) = WILD_VER; 


Ff. 
HEN 


S: 


SeeSeSeee 


' 
! If the device is non-directory structured, then simply return 
' to the caller's success action routine with the spec an 

! avoid the SEARCH sequence. Also avoid the SEARCH sequence if 
the file is a PPF file. 


iF NOT - (FABEF ABSL_DEV]} <SBITPOSITION(DEVSV_DIR) ,1> 
AND NOT .NAMCNAMSV-NODE 

OR » CEABEFABSL DEV])<$B1TPOSITION(DEVSV_FOR) , 1> 

OR NAM NAMSV_PPF 


eeseeee 


EGIN 
COPY_ESL_TO_RSL(.FAB,.NAM); 
CALL~SUCTESS; 

COPY-FILE STRING(.CTX,.FAB); 
RETURN STATUS; 


o 
Coce CoCo I~ 
Wwr—Ow0Oo 


cification is non-wild, then SEARCH once to get 
led in and do not repeat the search. 


If the file spe 
the FID/DID fil 


-32 ere 
LIBFILSCA.B52;1 
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LIBSFILESCAN Search a file wildcard sequence of files p-1984 00:52:1 AX-11 Bliss-32 V4. 
vO8e0 yy LIBSFILE_SCAN File scan given FAB and NAM block 18-30-1986 99338549 LIBRTL.SRCILIBFILSCA.B52;1 


<- 
oe 


H ess } If no wildcard in a network spec, no need for search. : 
3 i IF NOT .NAMCNAMSV_WILDCARD) 5 
; 91 THEN BEG : 
; 726 IF NOT .NAMCNAMSV_NODEJ . 
; 93 4 THEN BEGIN : 
3 94 4 STATUS = 1 7 alah = FAB); . 
5 639 695 4 if NOT .STATU 3 
; 609 4) THEN BEGIN $ 
; 610 9 COPY_ESL_TO_RSL(.FAB,.NAM); : 
; 611 098 CALL_ERROR; . 
i 61g $ COPY" FILE STRING(.CTX,.FAB); : 
3 1 SY RETURN .STATUS; ‘ 
oe ef gt 3 
: oig 708 ELSE COPY_ESL_TO_RSL(.FAB,.NAM); : 
a). 7 CALL_SUCCESS;~ : 
; 618 705 COPY-FILE STRING(. CTX, .FAB); ; 
; 619 0708 RETURN .STATU : 
: B3 0708 3 en: 
3 © ¢ 0709 ! Search for the each file which matches the wildcard sequence. If ‘ 
; 6 0710 ! success call success action routine and continue. If no more files, ¢ 
> 624 0711 : quit. If other error, call the error action routine and if not : 
3 e 5 Brig a wildcard directory or failure wasn't no privilege, then quit. : 
; 627 0714 DO BEGIN ; 
; e : Org alk Fe SSEARCH(FAB = .FAB); ° 
; 630 a5 4 THEN CALL_ SUCCESS ; 
; 631 718 4 ELSE BEG ‘ 
; @ ¢ 719 4 IF .STATUS EQLU .RMSNMF 3 
3 6 720 THEN BEG! 3 
; 6 721 COPY _FILE_STRING(.CTX,.FAB); : 
3 HH 4 ¢ RETURN .S . STATUS : 
$ $37 of 4 4 ELSE 3 
; 638 725 5 BEGIN : 
; 639 07 $ 5 COPY ESL TO_RSL(.FAB,.NAM); ; 
; oy 8) 5 : A LL-ERROR; : 
; yah} 0729 5 i Quit if not a wildcard directory or system status 3 
$ oh g ? ; not NOPRIV. ; 
3; 645 7 ; if NOT .NAMCNAMSV WILD DIRI 3 
; o*6 7 OR FABLE ABSL_ STV] NEGU SS$_NOPRIV : 
; 64 of 4 6 THEN BE : 
; 648 735 6 COPY_FILE oe CTX,.FAB); 3 
: 850 , gael essen 
; 651 7 3 IF ,FABCFABSL_STV) EQL SS$_NOPRIV : 
; 636 7 THEN STATUS = 1; 3 
3; 6) 740 4 $ 3 
3; 654 741 END; 3 
2 ns v0 : 
; 69 744 2 UNTIL NOT .STATUS; : 
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LIBSF ILESCAN Search a file wildcard sequence of files 16-5¢ -1984 752:1 AX-11 Bliss-32 V4.0-74 Page 20) Lit 
vheeh dt LIBSFILE_SCAN File scan given FAB and NAM block 1 =3007 1382 99:38:08 AWRTLe SREGL TSF YL SCA. B42 ° (BS v0 
: 6 745 2 COPY_FILE_STRING(.CTX,.FAB); 3 
: 886 Org RETURN .STATUS 3 | 
; 660 74 END; : 
-EXTRN SYSSSEARCH : | 
OFFC 00000 .ENTRY LJBSF ILE SCAN, Save R2,R3,R4,R5,R6,R7,RB,- ; 0518 $ | 

R9,R10,RT1 : ; 

E 04 ¢2 0000 SUBL2 4&4, : : 

A FFO7 cr : 09 MOVAB DUMMY_ROUTINE, SUC_ROUTINE : 0590 ; 

B AD A MOVL § SUC_ROUTINE, ERR_ROUTINE + 0591 ; 

02 6C 91 0000D CMPB (APT, #2 : 0592 3 

09 1F 0001 BLSSU'1$ ; ; 

08 AC b3 001 TSTL (AP) tn ; 

04 13 0001 BEQL 1$ : ; 

SA 08 AC 6 001 MOVL § SUCCESS_RTN, SUC_ROUTINE + 0594 : 

03 6c 91 00018 1$: CMPB (AP), #3 + 0595 ; 

09 1F 0001 BLSSU -2$ ; ; 

Oc AC D3 000 TSTL  12¢AP) : ; 

046 1 690 BEQL = -2$ : : 

5B 0c AC 00 00025 MOVL § ERROR_RTN, ERR_ROUTINE : 0597 : 

52 04 AC DO 00029 2s: MOVL FAB, R2 : 0602 ; 

56 28 A2 00 00020 MOVL  40(R2), N : ; 

33 A 80 8F 88 00031 BISB2 #128, 51( + 0603 ; 

58 D4 00036 CLRL CTX > 0604 ; 

04 6C 91 00038 CMPB (AP), #4 : 0608 ; 

OD iF 00058 BLSSU 3$ ; : 

10 Ac D3 990 D TSTL 16(AP) : : 

08 13 00040 BEQL «= 3 : : 

58 10 AC dO 00042 MOVL CONTEXT : 0610 F 

10 A6 68 DO 00046 MOVL (CTX), 16(NAM) > 0611 ; 

07 = A2 01 8A OO004A 3S: BICB2 #1, 7(R2) : 0616 : 

52 0D O06E PUSHL R2 : 0617 ; 

000000006 00 gi FB 0005 CALLS #1, SYSSPARSE : : 

59 0 09 0057 MOVL RO, STATUS ; ; 

OF 59 €8 0005A BLBS STATUS, 5$ : 0618 : 

0044 8F 8B 0005D PUSHR #°M<R2.R6> : 0620 : 

FE65 = CF 02 FB 00061 4$: CALLS #2, COPY ESL_TO_RSL F : 

68 6C FA 00066 CALLG (AP), (ERR_ROUTINE) : ; 

010A 31 00069 RW 20$ : 062 : 

57 04 AC p 006¢ 5$: VL. «FAB, _R7 : 062 : 

07 «A? gi 99 0 BISB2 #1, 7(R7) ; : 

8 D 74 TSTL CTX : 0630 ; 

0D 13 00 16 BEQL. «6s 6S ; : 

68 p 7 TSTL (CTX) > 0631 : 

:] 7A BNEQ 6$ 3 3 

7 0D gore PUSHL R7 : 0633 : 

DD 0007 PUSHL (CTX ; : 

FEBF cf 02 F 99 CALLS He MOVE _DEFAULT_STRING ; : 

2 10 A p 68: VL —s- 16 (NAM) , "RNAM > 0639 : 

0B Ab 9 TSTB =: 11 (NAM) : 0640 : 

44 1 C BEQL : : 

5 p 6 TSTL §RNAM > 0641 : 

4 BEQL 3 3 

58 05 0009 TSTL CTX > 0642 : 
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NAME Copy best name possible to res 1 ~3eon} 38 90:38:08 ATARTL SROTLTOF It Sea. B23 
L 


T PY_RESULT_NAME Copy best name yee to result string’; 
I YLRESULT_NAME (FAB,RESULT_NAME) : NOVALUE = 


P 
is routine extracts the pest possible result name from the 
b/nam block and returns it in the result descriptor. 


£$ crs 
ow ——. 
(——+ + = 


co 

NE CO 
Th 

fa 
Inputs: 


fab address of the fab, which must also contain a nam block 
result_name address of the descriptor for the result string 


Outputs: 
Output string is copied to result_name using Lib$s_copy_r_dx 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
BEGIN 
MAP 
FAB : REF BLOCKC,BYTE); 
1 


— = .FABLFABSL_F 


64 

65 

6 

68 

69 BIND 

4 NAM = FABCFABSL_NAM] : REF BLOCKC,BYTE]); 
78 CAL 

7 FNSIZE, 

a FNADDR; 

76 IF (FNSIZE = .NAMCNAM$B_RSLJ) NEQ 0 

77 THEN FNADDR = . RNAMS$L_RSA) 

78 ELSE IF (FNSIZE = .NAM NAM$B_ESLJ) NEQ 0 
79 HEN FNADDR = .NAMCNAMSL_ESA] 

80 ELSE BEGIN 

81 FNSIZE = .FABCFABS$B_FNS); 

Hf NAJ; 

8 

84 

85 

86 


— LIBSSCOPY_R_DX(FNSIZE,.FNADDR, .RESULT_NAME ) 


0004 00000 COPY_RESULT_NAME: 
WORD 


WO Save R2 3 

51 04 AC 00 00002 MOVL FAB, RI 3 
50 68 Al po 1006 MOVL 40(R1), RO 3 
7E AO 9A st MOVZBL 74A0). FNSIZE 3 
06 1 0 3 BEQL $ 3 

52 04 A 9 3 MOVL 4(RO), FNADDR 3 
14 14 BRB 3$ 3 

6E 0B AO QA 16 1$ MOVZBL 11(RO), FNSIZE 3 
06 1 1A BEQL $3 3 

52 0c AO OD 1 MOVL gtne, FNADDR 3 
08 1 § BRB H 3 

6E 34 Al QA 2s MOVZBL 52(R1), FNSIZE 3 


i 
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LIBSFILESCAN Search a file wildcard sequence of files 1b-Se -1984 00:52:1 AX-11 Bliss-32 V4.0-74 P 5 
WOs-0e PIND FILE CLEANUP internat routine fogs find.t le-sepoloa 42:38:49 — FeleRte sees ior ie sea 6$251 age 453 
Se . 787 1 ZSBTTL. ‘FIND FILE CLEANUP Internal routine to do find_file cle "3 
: i 788 1 ROUTINE FIND FILE CLEANUP(CONTERTS “= ee 
; 5 } Deallocate the context associated with using LIBSFIND_FILE 
: i P 
: 18 735 | | Inputs: 
: A ree } context = address of longword containing context pointer 
. 1 . 
AL BfGp | | ounune 
. 038 1! A parse of the null string is done. 
; 716 7 7! Context, related nam blocks, etc, all deallocated. Context 
: 715 0800 1! longword is not zeroed. . 
3 at 801 1 !<-- . 
; O80 BEGIN 
: 718 80 MAP 
: ahs 0805 CONTEXT : REF VECTORC,LONG); 
: 721 806 ¢ BIND 
‘ g ¢ 44 INTFLAGS = .CONTEXTCO] + INTFLAGS_OFF : BITVECTOR; 
: 726 809 2 LOCAL 
: 725 810 FAB : REF S$SBBLOCK, 
; 726 811 NAM : REF $BBLOCK, 
: 727 pets RNAM : REF $B8BLOCK, 
; 728 081 BLOCKSIZE; 
3 C4 814 
; 730 815 FAB = .CONTEXT(O); 
: ey 5i§ : 
: U3 $4 } Deallocate the filename string and the context block 
: 734 0819 BLOCKSIZE = .FABCFABSB_FNS); 
3: 73s ba5¢ IF .FAB bye, FNS) NEQ 0 
: ie 4 1 ' AND .FABCFABSL_FNA] NEQ 0 
3 38 i LIBSFREE_VM(BLOCKSIZE,FABLFABSL_FNAJ); 
: 740 b8 5 i If doing multiple input related file processing, deallocate the related 
: re) 8B § : nam blocks 
> 74 0828 2 IF .INTFLAGSCOJ 
3 76446 0829 THEN BEGIN 
3; «4745 3 0 = ,FABCFABSL_NAM); 
: 74 1 IF .NAM NEQ 0 
: 74 8 ; THEN 
3; 748 NAM = .NAMCNAMSL_RLF I; 
3; 749 WHILE .NAM NEQ 0 
3; TO 5 4 dO BEGIN 
3; 751 & RNAM = .NAMCNAMSL_RLFI; 
: P36 & LIBSFREE VM(ZREF (RAMSC_BLN*.NAMCNAMSB_RSLJ) NAM); 
: 838 4 NAM = .RNAM; 
3 «6754 9 END; 
s 95 0 END; 
3 £36 1 $ 
; 75 § ! Parse the null string 
; 758 : 


a YH 


Kk 13 


; Routine Size: 134 bytes, Routine Base: _LIBSCODE + 0356 


SF ILESCAN Search a file wildcard sequence of files Sep-1 AX-11 Bliss-32 V Pa 
yO8-08 FIND_FILE_CLEANUP internat routine to do find_f 1 12: =Sep “19 3h 99: 36:49 LIBRTL.SRCIL 16! téea. if 231 9 485 
: 759 44 2 PARSE_NULL_STRING( : 
: 760 45 Paper Re LUM GERER (CONTEXT SIZE) FAB); ; 
> 761 46 RETURN ; 
: 762 4 END; : 
001C 00000 FIND_FILE CLEANUP: ; 
.@OR Save R2,R3,R ; 0788 : 
54 000000006 i e 5 £038 oh LIBSFREE aT ‘as : ; 
53 04 BC 00000312 900¢ ADDL3 #786 @CONTEXT, R3 + 0807 ; 
0c Hf 50 0001 MOVL acON ONTEXT, FAB + 0815 ; 
¢ oc AE DO OOO1A MOVL aT + 0819 ’ 
04 AE 4 A2 9A 0001 MOVZBL 52¢R2). BLOCKSIZE ; : 
06 1 000 BEQL ~=s'1$ + 0820 : 
2c A2 05 000 TSTL  44(R2) + 0821 F 
09 13 00028 BEQL 1$ : : 
3¢ A2 9F OO02A PUSHAB 44(R2 + 0823 F 
8 AE 9F 00020 PUSHAB BLOCK : : 
4 0 FB 00 9 CALLS #2, LIBSFREE_VM : ; 
6 63 E9 00033 1$ BLBC —_- (R38) : 0828 ’ 
08 A 28 A2 00 00 MOVL 40(R2), NAM + 0830 ; 
5 8 A 00 00 MOVL NAM, RO + 0831 ; 
05 13 0003F BEQL 2s : : 
08 AE 10 Ad Dd 00041 MOVL 6(RO), NAM > 0833 3 
50 08 A 06 00046 2$: MOVL NAM, RO : 0834 ; 
20 13 000A BEQL © 3$ : ; 
53 10 AC pO 0004C MOVL 16(RO), RNAM : 0836 : 
08 AE 9F 0005 PUSHAB NAM : 0837 ; 
04 AE 03 Aad 9A 0005 WOV ZBL 3(RO), 4(SP) : 3 
04 AE 00000060 8F CO 0005 ADDL2 #96, 4 (SP) : : 
04 AE OF 9060 PUSHAB p) : : 
64 02 FB 0006 CALLS #2, LIBSFREE_VM : ; 
08 AE 53 D0 00066 MOVL §-RNAM, NAM > 0838 ; 
DA 11 O006A BRB 2$ > 0834 : 
52 DD 0006C 3S: PUSHL R2 + 0844 ; 
FCES CF 01 FB 000 CALLS #1, PARSE_NULL_STRING : : 
0c AE 9F 000 PUSHAB + 0845 : 
04 AE 031A BF 3¢ 0076 MOVZWL #794, 4(SP) : 3 
4 “ 06 4 tite Chere # LIBSFREE_VM : : 
$5 § fi Mi MOVL af KG -s > 0846 : 
04 0008 RET : 0847 : 


LIBSFILESCAN Search a file wildcard sequence of files 18-50 Sep-1984 AX-11 Bliss-32 V Page 27 

yOs-086 LIBSFIND_FILE Find a Fite’ ven a file name 3ep-1984 99: 38: 3 LIBRTL. SRC (ier iL sa BS2: 31 . 145 

: 764 rk 1 ZSBTTL ‘LIBSFIND_FILE Find a file given? a file n 

; 765 49 1 GLOBAL ROUTINE LYBSF IND "FILE CFILE AME ,RESULT NAME © onrext 

; £66 20 1 DEFAULT NAME ,RELATED_NAME, Sty. ADDR,USER_FLAGS) = 

; 768 26 1! This routine is called with a wildcard file specification, which 

; 188 th : : it searches for, and returns the next resultant file spec. 

: 771 Bee 1 ! Inputs: 

; ure 529 1! 

Te a Bae 1! ILE_NAME = File name descriptor address. 

: 774 338 1! RESULT NAME = Result file name descriptor address. 

3 ag +84 ! } CONTEXT = = Sddress of a Longuord ontaining previous call ‘context’. 

3 ! no pre $s ca 

: irs 0861 1! pert NAME = Default file name descriptor address (optional). 

; 778 Bag 1! RELAT = Related file name descriptor address (optional). 

: 444 Beer : STV “ADDR aoasarten Address of longword to store STV on failing 

; «781 0865 1! USER_FLAGS = Addr ss of longword of flags to control operation 

; 7 086 1! OPTIONA 

; 78 0867 1! BIT 0 (NOWILD) Return an error if a wildcard is input 

3: 784 0868 1! BIT 1 (MULTIPLE) eeerere multi ie e input file stickyness. 

3; 785 0869 1! n this mode e RELA E argument is ignored. 

> 786 0870 1 | Each time éstt ND RPYLe. 3 called-with @ different 

; 787 0871 1! file speci nee on, the one from the previous call 

: 788 4 1! s added to the List q' related file Spee 1 Fteat tens 

; 789 0875 1! This ot tows operate commands such a 

; 790 0874 1! RYPT FILE1.TYP,FILE*2. TYP. 

; 791 0875 1! Use of ehie feature is required to get the desired 

; ie bas ; defaulting with searchlists. 

3; 794 0878 1! Note that L106 1 FILE_END must be called between 

; 795 0879 1! each command Line in interactive use or the defaults 

; 796 0880 1! from the previous command Line will affect the 

3; 797 0881 1! next command Line. 

; 798 tt 1! 

; 799 0885 1! Implicit inputs: 

; 800 0884 1! 

; 801 0885 1! CONTEXT is either 0 or as set up from a previous call to 

; 80 pane 1! LIBSF IND_FILE. 

; 80 0887 1! 

3; 804 0888 1 ! Outputs: 

3 $02 0889 1! 

; 806 0890 1! CONTEXT = Address of internal FAB/NAM buffer. 

; 807 891 1! RESULT_NAME = Result file name. 

; 808 B36 1! 

3; 809 893 1 ! Implicit outputs: 

; 810 894 1! : ; 

: i} 895 ' : CONTEXT will point to a FAB/NAM block 

3 ig 39 1 ! Routine values: 

: 14 38 1! 

3; «815 8 1! Any valid RMS error code 

: 19 00 1! Error codes returned by LIBSGET 

> 81 901 1! Error codes returned by Latter | 

3 18 308 1! SHR$_NOWILD wit LIB facility code = "Wi tdcard specification parsed 

; 819 1! and the *NOUILD flag 6 it was set 

: 820 904 1! 
| 
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file wildcard sequence of files jo~300- 138% 00:38:13 AX-11 BLi i34° 
-FILE Find a file given a file name 14-Sep-1984 12:38:49 CTeRTL- SRC 
' er oe 
BEGIN 
BUILTIN 
NULLPARAMETER; 
LOCAL 
TATUS, ! Status 
STATUS_0, 
STATUS_1, 
STATUS 2 
BLOCKSIZE ! Size of request to LibSget/free vm 
LAGS : BITVECTOR(32) i User fla 
INTFLAGS : REF BITVECTOR. i Internal flags 
STVADDR : REF Wester LONG), ! Address of user’ Sete. address 
FNBUF : REF VECTORC,BYTE), ! FAB/NAM buffer alors 
FNBUF SIZ, ' FAB/NAM buffer Len th. 
FILE_SIZE, ' Length of FILE_NAME strin 
FILE-ADDR ' Address of FILE_NAME string 
DEFAOLT SIZE, i Length of DEFAUCT_NAME string 
DEFAULT_ADDR, ' Address of DEFAULT_NAME string 
RELATED_SIZE, ' Length o LATED_RAME string 
RELATED ADDR ' Address of RELATEB_NAME string 
FAB : REF $BBLOCK, i FAB address 
NAM : REF $B8BLOCK, ' NAM address 
RNAM : REF SBBLOCK, ' Related NAM address 
= NEXT_STATUS : REF VECTORC,LONG];! Status to return next call 
Speyext REF VECTORC,LONG), ' Pointer to context block 
FILE NAME: REF BLOCK BYTE, i File name string descriptor 
RESULT NAME : REF BLOCKL,BYTEJ, ' Result name buffer descriptor 
DEFAULT_NAME: REF BLOCKC,BYTE], ' Default name descript 
RELATED= NAME: REF BLOCK BYTE); : Related file name atrine desc 
STATUS = 1; ' Preset success 
FILE SIZE = RELATED_SIZE = DEFAULT_SIZE = 0; ! Preset since they are words 
IF NOT NULLPARAMETER(6) 


FLAGS © TVADDR = .STV_ADDR; 
IF NOT “NULLPARAMETER(7) 
FLAGS = ..USER_FLAGS; 


f the specified previous ‘‘context’’ is zero, then there was no 
revious call, so the FAB/NAM block buffer needs to be allocated. 


CONTEXTCO EOL 0 
STATUS_0 sinh ibsgeT VM(RREF (CONTEXT_SIZE) ,CONTEXTCO)); 
THEN 
RETURN .STATUS_0; 


FNBUF = ,CONTEXTLOJ; 
CHSFILL(O, CONTEXT _SIZE, . FNBUF): 


' 
a 


LIBSFILESCAN Search a file wildcard sequence of files 16-Sep-1984 AX-11 Bliss-32 V4.0-74 P .] 
Vos -024 LIBSFIND_FILE Find a file given @ file name 18-30-19 99:38:49 He Nanre Saeac ioe iescao$251 29° 


r 968 Initialize the FAB and NAM blocks 
0 P 09 $FAB_INIT( FAB = af NBuF 
+ P bees NAR . FBG NAM OFF ); | 
= 
P 36) SNAM_INIT( NAM = FNBUF | 
P 0968 RLF = (IF FLAGS rf fHEN 0 
5 Pp 969 ELSE FNBUFCRNAM_OFF), | 
P 0970 RSS = NAMSC_MAXRSS 
8 P 0971 RSA = FNBUECRSBUF OFF, 
Baa Pp 976 ESS = 
8 97 ESA = au Ea OFFI); 
90 974 $SNAM_INIT( NAM = FNBUFLRNAM_OFFJ); 
91 975 (PNB + STATUS_OFF) = 
$B Fuse 
894 0978 ' FNBUF = .CONTEXTCO); 
B36 0380 Get the block addresses and check the validity of the FAB/NAM buffer. 
98 038 FAB = .FNBUF; 
99 098 NAM = FNBUFCNAM_ OFF); 
900 0984 2 RNAM = FNBUFLRNAM OFF): 
901 0985 2 NEXT STATUS = FNBOFCSTATUS OFF); 
908 09 INTFCAGS = FNBUFCINTFLAGS OFFI; 
90 098 IF .FABCFAB$SB_B1D) NEQ FABS$C_BID 
904 0988 OR FAB ABCFAB$B-BLN] NEQ FABSC~BLN 
906 a991 RETURN RMSS_FAB; | 
908 99 ! 


> 
So 


Remember in context if doing multiple related filename processing 

INTFLAGSCOJ = .FLAGS(1); 

: Get the length and address of the filename string 

if NOT (STATUS_1 = LIBSANALYZE_SDESC_R2(.FILE_NAME;FILE_SIZE,FILE_ADDR)) 
RETURN .STATUS_1; 


ae OO000 
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1908 If specified, get the length and address of the default filename string 
1 DEFAULT ADDR = DEFAULT_SIZE; 
1907 T RULLPARAMETER(4) 
1009 
iit 7 Analyze default name desc. iptor if present 
19i¢ if NOT (STATUS = LIBSANALYZE_SDESC_R2(.DEFAULT | 
101 DEFAULT_SIZE, Derauct _ADDR)) 
1014 THEN OEGIN. 
1015 CoP yt ite NAME (, fhe RESULT. NAME); 
1 1g NEXT"S uated =  RMSNMF; ' Require new FILE_NAME 
101 RETURN AS tATU 
1018 END; 


$$$ 
| 


ESCAN S h a file wildcard sequence of files 1b-5¢ Sep-1984 AX-11 Bliss-32 V ita a Page 30) 

via eey t1BSF IND_FILE Find ® file given a file name me Hat) 99: 36; 13 trBRTLe SRCIL TBF IL CA.B32;1 9 47) 

; 935 101 ! 

; § ! If specified, get the length and address of the related file spec 

: ; 8 ie aay ADDR = RELATED. SIZE; 

; 340 4 AND NOT NULL PARAME TER(S) 

: 9% 1 6 IF NOT (STATUS = LIBSANALYZE_SDESC_R2(.RELATED_NAME 

: 94 1 RECATED RET Ze RELATED. ADDR)) 

> 944 10 8 THEN BEGIN 

: 945 1 COPY_RESULT_NAME(. FAB. RESULT. NAME) ; 

3 3e8 1030 NEXT“STATUSCO] = .RMSNMF; Require new FILE_NAME 

; 1031 RETURN .STATUS; 

i ik - 

: 950 1034 2! 

; 951 18 5 ' If the sore it tes file-name does not match the previous file-name, 

5 826 1 $ ' or if N then set mt the new filenames and parse them. 

3 eer 1} , } (Also check "i first call and file=-name of all blanks) 

: 955 1039 2 IF .FLAGSCO) 

; 956 1040 “OR . INTFLAGSC1 

: 957 1041 OR CHSNEQ(. FAB FABSB_FNS],.FABCFABSL FNAJ, 

; 958 1048 FILE _SIZE,.FILE ADDR,’ *) 

: 959 104 OR CHSFAIL(CHSFIND_NOT.CH(.FILE_S{ZE,.FILE_ADDR,' ')) 

; 364 1oe8 “ “Sin 

: 308 1946 DNAM = FNBUFCONAM_PTR] : REF SBBLOCK; 

: 964 1048 4 IF (.DNAM EQL 0) 

: 965 1049 4 OR (.DEFAULT_SIZE EQi ©) 

; 966 1050 THEN 

: 38s 1983 ELSE 

> 969 1983 NOT CHSEQL(.DEFAULT_SIZ » DEFAULT ADDR, 

: 970 1054 . DNAMLNAMSB_RSLJ, .DNAMCNARSL_RSAJ,0) 

oe ie amen Bra 

; 97% 1058 DNAM = FNBUFCDNAM_PTR] : REF SBBLOCK; 

: 976 1060 If specified, set the default name. | 

: 97 106 if «. DEFAULT _SIZE NEQ 0) 

; 378 1 $¢ 4 AND (7 CFNBUE DNAM TRI) <0, 2 Pos EQL 0)) 

; 980 1064 4 OR (IF -< (FNBUF CDNAM PTR NEQ 0 

: 981 1065 4 THEN NOT CHseary: peFANC SIZE,.DEFAULT 

; 98¢ 1066 4 MCNAR $6/ RSL a. DNAMENAMSL RSAJ,0) 

3; 9 106 4 ELSE 0) 

; 9 1 | 4 THEN 

: 985 106 4 FABLFABSB_DNS] = .DEFAULT_SIZE; | 

: 986 1070 4 FAB FABSL~DNA} = .DEFAULT-ADOR; 

; 988 1974 ELSE 

: 989 a3 FABLFABSB_DNS) = 0; | 

: 991 1978 i If there is a previous name string, then delete it. Then | 
| 


: 
14 

Lge i eecen Search a file wildcard sequence of files 18-Sep-1984 90:36:13 AX-11 Oh regn rg Vata as Page "| 
-0 LIBSF IND_FILE Find a file given a file name 14-Sep-1984 12:38:49 LIBRTL.SRCILIBFILSCA.852;1 ahi 

3 338 ! r ; | allocate space for new filename string. | 

: 994 107 IF (BLOCKSIZE = .FABCFABSB_FNSJ) NEQ 0 

; 995 1079 4 THEN BEG! 

; 238 1080 4 IF .FLAGSC1) 

; 99 1081 2 THEN BEGIN 

; 998 | ¢ ; COPY FILE_STRING(NAMCNAMSL RLF, .FAB) ; 

:1 1084 4 LIBSE REE  VM(BLOCKSIZE, FABLFABSL_FNAI) ; | 

: 1001 1085 4 FABLFABSB_FNSJ = 0; 

3 1 ¢ 1 $ END; 

3 1 1 4 tee E = FILE SIZE; 

3 7 1088 FABLFABSB_FNS) = eect 

3 3 1089 IF .BLOCKSIZE NEQ 

37 1090 THEN 

; 100 1091 4 BEGIN 

; 1008 1936 5 IF NOT (STATUS_2 = LIBSGET_VM(BLOCKSIZE,FABCFABSL_FNA))) 

; 1009 1093 4 THEN 

; 1010 1094 4 RETURN .STATUS_2; 

; 1011 1095 4 CHSMOVE (.FABCFABSB_FNS],.FILE_ADDR,.FABCFABSL_FNA)); 

3 101 1096 END; 

; 101 1097 : 

5 Ite 1938 } If specified, set the related default name. 

; 1016 1100 IF NOT .FLAGSC1) 

; 1017 1101 4 THEN 8 

: 1018 1186 4 IF .RELATED_SIZE NEQ 0 

: 1019 1103 5 THEN BEGIN 

: 1020 1104 5 RNAMCNAMSB_RSLJ = .RELATED_SIZE; 

: 1021 1105 RNAMLNAMSL_RSA] = .RELATED_ADDR; 

; 10 ¢ 17406 END 

; 10 1107 4 ELSE 

> 1024 1108 4 RNAMCNAMSB_RSLJ = 0; 

: 1025 1109 END; 

3; 10 $ 1110 

: 10 1111 ' 

3; 1028 111 ' Parse the file-spec. 

3; 1029 111 : 

: 10 1114 wre aestl? = 8: 

: 1031 1115 INTFLAGSC2) = 0; 

; 10 ¢ 1116 NAMCNAMSV_SVCTX) = 1; ! Save RMS context 

3; 10 111 STATUS = A ee = FAB); 

3; 10 1313 NEXT_STATUSCO) = .STATUS; ! Save status for next call 

3; 1035 111 IF .STVADDR NEQ 0 

3 1 1120 THE 

3 1 1121 STVADDRCOJ = .FABCFABSL_STV); 

3 1038 11 ¢ IF NOT .STATUS 

; 1039 11 THEN 

: 1040 1126 4 IN 

; 1041 1125 4 COPY_RESULT_NAME(.FAB,.RESULT_NAME) ; 

3; 7 ; 11 § 4 NEXT-STATUSCO)] = .RMSNMF; 

37 11 6 RETURN .STATUS; 

3 104646 1128 : 

3; 1045 1129 END; 

3 1 § 1130 ’ 

3 1 1131 ! If error parsing, or from the last search (could have been RMS$_NMF 

; 1048 1132 ! set because of no wildcarding) deallocate the context unless MULTIPLE. | 
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dcard sequence of files 16-Sep-1984 00:52:1 AX-11 Bliss-32 V4.0-74 
da file given a file name 12-80 8- 1982 99: 38509 PTBRTL’ SREAL IBF ILSCA. B92: 
e of a wildcard directory and SS$_NOPRIV is special cased to 
° search to continue even if a parficular directory is not accessable. 
WERT STATUSCOD EQL .RMSNMF 
IF NOT .FLAGSC1) 
THEN BEGIN 
FIND Fite CLEANUP( CONTEXT); 
CONTEXTLOJ = 0; 


i 
i 


wil 
Fin 
cas 
w 2 


ND; 
INTFLAGS ‘ = 1; 
RETURN .RMSNMF; 
END; 


Copy the default file string to a nam block at the end of the 
List of nam blocks if we have not yet done so. If we already 
have copied the default string, then just insert it into the 
List of nam blocks at the current location. 


F .FABCFABSB_DNS) NEQ 0 
AND NOT .INTFLAGS(2) 

THEN BEGIN 

LOCAL 


NFAB : SFAB_DECL; 


BIND 
DNAMPTR = FNBUFCDNAM_PTR] : VECTORC,LONG); 


i Setup a dummy fab for copy_file_string. Point default 
name pointer in the context block to newly created default nam block 


CHSMOVE (FABSC_BLN,.FAB,NFAB); 
NFABLFABSB_FNS) = .FABLFABSB_DNS); 
NFABLFABSL~FNA] = .FABLFABSL~ONAJ: 
COPY Fite STRING(NAMCNAMSL_RCFJ,NFAB); 
DNAMPTRCOJ = .NAMCNAMSL_RLF); 


IF .NAMCNAMSV WILD VER) 
AND NOT .INTFLAGSC2) 
THEN G 


BEGI 
INTFLAGSC2) =_1; 
FABEFABSB_DNS] = XCHARCOUNT(*;**); 
FABLFABSL_DNAJ = WILD_VER; 

END; 
] 


i If the device is non-directory structured, or the file is a PPF file, 
! then simply return to the caller and avoid the SEARCH sequence. 


4 

if NOT - (FABEF ABSL_DEV]) <SB1TPOSITION(DEVSV_DIR) ,1> 
AND NOT” .NAMCNAMSV—NODE 

OR » (EABEFABSL DEV])<$BITPOSITION(DEVSV_FOR) ,1> 

OR .NAMCNAMSV_PPF 


THEN 


BEGIN 
NEXT_STATUSCO] = .RMSNMF; 
COPY-RESULT_NAME(.FAB,.RESULT_NAME); 


' No more files on next call 


| 
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Siia yitgcerg poquence of files 1f-3e0-13 1 99:36:23 Meare SReSiaee tesa 882.1 : 
voeeose PTaSFIND_FILE Find’s tite given a file name : 
Vv = 
: 11 ~e | ; 
Hi 113 If wildcard processing is not wanted, check for it and return an | : 
7 10 1194 i error if so. | : 
7114 1195 2} ; 
gg 1199 5 AND NAR NARBV WILDCARD] 7 
1123 g THN »RMSNME ; 
£15 1338 COPY RESULT NAME (“FABS CRESULT NAME) ; ; 
ii? : OF RETURN LIBS_NOWILD; ; 
; 1118 1 0§ ' ‘ : “wildcard remote file, : 
; 120 i , unless it is a non-w 
; 1126 I 08 ie chtek Gene, Snis tother because it's so expensive. | ; 
18) ILDCARD]) : 
; 120 ; NOT .NAMCNAMSV_W 
: iH 1507 § i NOT (.NAMLNAMSV_NODE] AND | | 
; 1135 1309 5 * status = SSEARCH(FAB = .FAB); 
3 11 ' ; 
; 1159 1% Return the STV in case of an error : 
: 1198 j STATUS 
; 1188 i AND C.STVADDR NEQ 0) : 
; 1132 1516 3" — stvaporcoa = .FABCFABSL_STVI; 3 
at 1318 directory spec then 
; 1218 i ion and non-wildcard dire 
; 1135 1$}) : Sot $0 corer ne eure ftice on next call. ; 
711 ; 
et 133 If NOT .STATU STV] EQL SS$_NOPRIV)) 
; ' AND (.FABLFABSL_ 7 
; 1138 1358 AND NOT CNAMENAMS_WILD_DIR3 7 npn scape oa? : 
tet 1558 NEXT_STATUSCO] = .RMSNMF; 
; END; Bnd 
1148 1307 i If the filespec is non-wildcarded, set status so next call will retu ; 
i Hye} 15 3 i no more files. 
HH 8 Ie wer mvcwner snscuen : 
> 1148 13¢ @ THEN pow : 
; 1149 ! : NEXT_STATUSCO = .RMSNAF 
, anded : 
: 142 1536 Lt name isn't set, return the exp 
3 115 : i sult name. If the resu ; 
; 1188 i 38 | aon nie 
: 1 -RESULT_NAME) ; | : 
; 1186 1341 ta tiple ae a deallocate the FAB/NAM buffer : 
1138 ég i If no more files and not MULTIPLE, 2 
i 1159 1500 $j QL. RMSNMF : 
Mee BEB Ao aun tei 

: 1162 1246 THEN BE | 
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Lae Ook LIBSFIND_FILE Find a tile 'g ven a file name 19-808- 1382 99:38:49 ANBRTL SRETL TSF LL SCA B21 9° 47) 
: 1163 1247 FIND_FILE_CLEANUP(. CONTEXT); 
3 1164 1 8 FANTEXT EOI = 0; 
: 1165 124 END; 
; 1166 1 30 | 
: 116 1251 RETURN .STATUS 
+ 1168 1 2g 
: 1169 125 END; 
OFFC 00000 -ENTRY LIBSFIND_FILE, Save R2,R3,R4,R5,R6,R7,R8,- : 0849 
R9,R10,RT1 : 
SE 98 AE 9E 00002 MOVAB -104(SP), SP : 
01 BD 90006 PUSHL #1 : 0939 
10 AE 7C 0000 CLRQ. DEFAULT_SIZE + 0940 
7£ 7¢€ 00008 CLRQ STVADDR + 0941 
06 ot 91 00000 CMPB s«#C AP), #6 > 0942 
09 iF 9001 BLSSU_1$ : 
18 «AC b3 001 TSTL 24(AP) : 
04 13 0001 BEQL ~=s«Ca$ : 
6E 18 AC 00 00017 MOVL § STV_ADDR, STVADDR + 0944 
14 AE 04 0001B 18 CLRL =: FLAG : 0945 
07 C 91 OOO1E CMPB (AP), #7 + 0946 
A 1F 00021 BLSSU  _2$ F 
1c «AC b3 990 3 TSTL B(AP) : 
05 13 00026 BEQL $ ; 
14 AE 1¢ BC DO 00028 MOVL §§ @USER_FLAGS, FLAGS : 0948 
0C BC D5 00020 2$ TSTL § @CONTEXT : 0953 
03 13 00030 BEQL 3 : 
0094 31 003¢ BRW $ ; 
oc AC bp 0035 3$ PUSHL CONTEXT : 0955 
14 AE O31A BF 3¢ 0038 MOVZWL #794, 20(SP) : 
14 AE 9OF 0003 PUSHAB 20(SP) ; 
000000006 00 98 FB 00041 CALLS #2, LIBSGET_VM ; 
01 0 E 00048 BLBS § STATUS_O, 48 : 0956 
4 00048 RET F 
56 OC BC DO 0004C 4s: MOVL  @CONTEXT, FNBUF : 0959 
031A BF 00 6E 00 2c 90050 MOVCS #0, (SP), #0, #794, (FNBUF) : 0960 
0050 «8F 00 6E 00 2c 00038 mMOVCS #0, (SP), #0, #80, (FNBUF) : 0966 
66 003 +«8F B 90060 MOVWW of 0483 (FNBUF ) F 
04 A6 01000000 &F p 06 MOVL  #16777216, 4(FNBUF) : 
16 Ab : 99060 MOVE 3s #2, g@ (ENBUF ; 
* oe 02 90 00071 MOVB #2, 31(FNBUF) : 
5 50 A 3 0075 MOVAB 80(R6), R7 : 
28 «Ab 5 p 079 MOVL 7, 4OCFNBUF) ; 
0069 «BF 00 6E 00 2¢ 070 MOVCS #0, (SP), #0, #96, (R7) : 0973 
67 6002 er 0 80 5 mOovw #24578 (R7) F 
2 a7 1 BE 09 A MNEGB #1, 2(R7) : 
ca O20F (6 9E E MOVAB 527 (R ), 4(R7) : 
A Av 1 BE 9 MNEGB #1, 10(R7) ; 
C A? 0110 6 : 98 MOVAB 272(R6), 12(R7) : 
04 14 AE 1 £1 0009E BBC #1, FLAGS, 5$ ; 
| 
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LIBSFILESCAN Search a file wildcard sequence of files ih-d6 -1984 00:52:1 AX-11 Bliss-32 V4.0-74 p 7 
Loe took LIBSFIND_FILE Find a file given a file name 12-808-1 984 90:38:49 YMBRTL SRCIL IGF IL§CA.B 2:1 age ii 
03 ag 1¢ AE 9 3 MOVB RELATED_SIZE, 3(RNAM) ; 1104 ; 
sa 1 y : 4 OVL RELATED-ADDR, 4(RNAM) : 1105 : 
03 AB 94 28 368: CLRB (RNAM) : 1108 F 
6A 6 BA 00248 278: 61 ¢82 #6, CINTFLAGS) : 111 ; 
33. AT 80 8F 88 0024 BISB2 #128, 51(NAM) : 1116 ; 
B DD PUSHL FAB + 111 ; 
000000006 00 gi F CALLS #1, SYSSPARSE ; : 
08 A 0 D f MOVL RO, STA : : 
08 AE OD 6 MOVL § STATUS, (NEXT_STATUS) + 1118 : 
6f D5 00264 TSTL TVADDR + 1119 ; 
05 1 $6 BEQL $ : 3 
00 BE 0 AB OD MOVL (FAB), @STVADDR : 1121 ; 
1 AE € gp 388 STATUS, 30$ : 11 2 ; 
08 AC DD 00271 298 PUSHL RESULT_NAME : 112 ; 
38 DD 00274 PUSHL FAB : : 
FCCS) «ss 0 FB 0276 CALLS #2, COPY_RESULT_NAME : ; 
69 F9OAS cf 4 0278 RMSNMF, TNEXT_STATUS) : 1126 3 
0105 31 00280 BRW 45$ : 1127 ; 
F99C OCF 69 D1 00283 308:  CMPL §(NEXT_STATUS), RMSNMF : 11 : 
19 iF 00288 BNEG 32$ : : 
08 4 « 01 € 00 8A Wi, FLAGS, 31$ + 1138 ; 
OC AC ODD 0028F PUSHL CONTEXT + 1140 ; 
FCE3 CF 01 FB 00 ¥e CALLS #1, FIND_FILE_CLEANUP : : 
0C BC 04 0029 A ee + 1141 ; 
6A 02 88 0029A 31$: BISB2 #2, CINTFLAGS) + 1143 : 
50 F983 CF DO 00290 MOVL RMSNMF, RO + 1144 : 
04 00 Ae RET : : 
35 AB 95 002A3 32$:  TSTB $3(FAB) + 1152 ; 
26 13 00 Nb BEQL $ ; ; 
22 6A 02 £0 002A BBS #2, CINTFLAGS), 33S + 1153 ; 
24 «AE 6B 0050 8F 28 OO2AC MOVC3 #80, (FAB), NFAB > 1165 ; 
58 OA 35 AB 90 00283 OVB 53(FAB), NFAB+S2 : 1166 : 
50 AE 30 AB pO 0288 VL 4B(FAB). NFAB+44 : 1167 ; 
24 AE F 002BD PUSHAB NFAB + 1168 3 
10 A? 9F 00 C0 PUSHAB 16(NAM) ; : 
F964 «OCF ae FB 002C CALLS #2 COPY_FILE STRING : : 
0316 6 10 A pO 02¢8 VL: 16 (NAM) , 790 (FNBUF : 1169 ; 
52 34 A? 9E 00 ce 33$ MOVAB 52(NAM) é : 1172 : 
11 62 03 E1 0020 C w3, (R25, 348 ; ; 
0D 6A 2 0206 S #2. CINTELAGS), 34% + 1173 : 
6A 04 OODA BISB2 #4, CINTELAGS) : 1175 : 
HA B F943 ; 9 6 a MOAB He lD VER AB (FAB) : 1178 : 
04 40 AB 65 £5 E7 34$: S "4 B4(FAB), 35$ : 1183 3 
08 6 11 €1 EC C #17, (R2), 368 > 1184 : 
04 43 Ag ES FO 35$:  BLBS 67 (PAB) $65 : 1185 : 
11 A2 €9 002F4 BLBC (R2), 37$ > 1186 : 
69 F9 CF DO O02F8 36S: VL - RMSNMF,  (NEXT_STATUS) : 1188 ; 
AC DD 000F PUSHL RESULT NAME > 1189 : 
38 DO PUSHL FAB : : 
FC39—sCF 0 FB CALLS e COPY_RESULT_NAME ; : 
7s 1 BRB § : 1190 : 
1g 146 AE €9 37$ BLBC FLAGS, 38$ > 1196 3 
1 1 Ad €9 BLBC—COtsédTC ‘ : 1197 : 
69 FOOF CF DO 00311 MOVL = RMSNMF, (NEXT_STATUS) : 1199 ; 
8 AC DD 00316 PUSHL R E : 1200 : 
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This routine is called after using LIBSFILE_SCAN. It performs 
a parse of the null string to deallocate an goyee RMS context. 
If L189 hs was directed to perform multiple input file 
specification processing, the saved file specifications are 
deal located. 
Calling sequence: 

status.wl = Lib$Sfile_scan_end(fab,context.wl.r) 
Inputs: 


fab = COPTIONAL) Address of the FAB used with LIBSFILE_SCAN 
context = COPTIONAL) Address of the context used with LIBSFILE_SCAN 


Outputs: 

NONE 
Implicit outputs: 

Saved context deallocated if context argument is supplied. 
Routine values: 


RMS$_FAB fab argument is not address of a valid FAB 
success 
BEGIN 
BUILTIN 
NULLPARAMETER; 
LOCAL 
RNAM : REF SBBLOCK, 
NAM : REF $BBLOCK; 
MAP 


FAB : REF $BBLOCK 
CONTEXT : REF VECTORL,LONG); 


' 
: Ensure it's a FAB 


iF NOT NULLPARAMETER(1) 
THEN 
BEGIN 
IF .FABCFAB$B_BID) NEQ FABS 
OR .FABLFAB$B_BLN) NEQ 
RETURN RMS$_FAB; 
Parse the null string 


“eo 


K 14 
a file wildcard sequence of files 16-Sep-1984 00:52:15 AX-11 Bliss-32 V4.0-74 
LE SCAN_END Clean we after LIBSFILE_SCAN 122888718 4 99:38:49 LIBRTL. ResLisr lu $ea.692;1 
SBTTL ‘LIBSFILE ny END Clean up after LIBSFILE_SCAN'; 
LOBAL ROUTINE LIBSFILE_SCAN_END(FAB,CONTEXT) = 
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LIBSF ILESCAN Search a file wildcard sequence of files ibese -1984 00:52:15 AX-11 Bliss-32 V4.0-74 P 40 
yOs-02% PTASFILE.SCAN_END Clean un stier LIOSFILE.SCAN Te-Sepei9e Sor3hs49 EC TORTL SRESL TBF ICS cA B92: 1 998 12) 
2 y 1311 PARSE _NULL_STRING(.FAB); 
; ' § ! \¢ : oo 8 8 0S 
: i i 18 If supplied, deallocate any input file context 
:14 ¢ 1 af if NOT NULLPARAMETER(2) 
3; 1234 131 THEN BE 
: 1235 1318 NAM = .CONTEXTCO); 
3 1 $ 1319 WHILE .NAM NEQ 
3 3 1320 4 dO BEGIN 
: 1 § i ! ¢ PHASE REG WCanC rT RAtet BLNS NAMCNAM$B_RSLJ) ,NAM) 
3 ‘ i), : 
: 1240 1 § 4 NAM = .RNAM; = ™ 
3 : re } : END; 
; : 8 : § Zero the context 
> 1245 1328 CONTEXTCO) = 0; 
3; 1246 1368 § ND; 
: 1247 1330 2 RETURN SS$_NORMAL 
: 1248 1331 1 END; 
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0004 00000 .ENTRY LIBSFILE_SCAN_END, Save R2 : 
SE 08 ce 90002 SUBL2 #8, SP : 
6C 95 0000 TSTB. —s-_ (AP) : 
24 13 90007 BEQL «= 3 ; 
04 AC D5 00909 TSTL 4C(AP) : 
1F 13 9000¢ BEQL  3$ ; 
50 04 ac D0 0000 MOVL FAB, RO : 
03 60 91 0001 CMPB ss (ROS, ; 
07 12 0001 BNEQ 1$ ; 
oe 8 ab oe be! ee : 
50 0001850C BF v6 D001 1$: OVE #99596, RO ; 
50 DD 00026 28: PUSHL RO + 1311 
F918 = CF 01 FB 00028 CALLS #1, PARSE_NULL_STRING : 
02 66 91 0002D 3$: CMPB CCAP), #2 : 1316 
08 Ae BS bonis PETE” BtAP) : 
ch re 
04 AE 08 BC 00 00037 MOVL § @CONTEXT, NAM : 1318 
50 04 AE 06 00 4$: MOVL NAM, RO : 1319 
24 13 0004 BEQL 5$ ; 
52 10 AO 0 04 VL 16¢RO), RNAM : 1321 
04 AE F 0004 PUSHAB NAM : 1322 
04 AE 03 AO 9A 04 MOVZBL 3(RO), 4(SP) : 
06 AE 00000060 BF £0 4 ADDL2 #96, 4<(SP) : 
4 AE SF 0005 PUSHAB 4(SP) ; 
000000006 00 F 5 CALLS #2, LIBSFREE_VM : 
04 AE p $0 MOVL §RNAM, NAM + 1323 
d6 11 BRB : 1319 
08 BC D4 00066 5$ CLRL § @CONTEXT : 1328 
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LIBSFILESCAN earch a file wildcard sequence of files 16-Sep-1984 00:52:1 AX-11 Bliss-32 V4.0-74 e 2 
Lae Ook IBSFIND_FILE_END Clean m after LIBSFIND_FILE 19-808-1 382 99:38:08 ATBRTL SREILTOF It Sea. 64251 age 435 
1 9 SBTTL ‘LIBSFIND FILE_END Clean up after LIBSFIND_FILE'; 
1 LOBAL ROUTINE LIBSFIND_FILE_END(CONTEXT) = 


This routine is called after using LIBSFIND_FILE. It performs 
a@ parse of the null string to deallocate any saved RMS context, 
and then the allocated context block is deallocated. | 
i Calling sequence: 
status.wl = Lib$Sfind_file_end(context.wl.r) 
Inputs: 
context = Address of the context used with LIBSFIND_FILE 
Outputs: 
NONE 


Implicit outputs: 


Saved context deallocated. 
Routine values: 


le te ee te emt etme mt meses esermsms=GiRe f 


RMS$_FAB context points to an invalid context block 
success 


i SS ee 
BEGIN 
MAP 
CONTEXT : REF VECTORC,LONG); 


LOCAL 
FAB : REF S$BBLOCK; 


If context is 0, nothing to do 
se .CONteETERD EQL 0 

RETURN SS$_NORMAL; 

Ensure that context points to a FAB 

FAB = .CONTEXT(O); | 
IF .FABCFABSB_BID) NEQ FABSC_BID 
OR .FABCFAB$B_BLN] NEQ FABS$C_BLN 
RETURN RMS$_FAB; 

Do most of the work 

F IND_FILE_CLEANUP( CONTEXT) ; 


SNIP AAA AAA AAA MT BB BPE EE EAI 


200000000 09 00 09 Co 
DONA ME WO OD NAVE WIN 9 OD NAME WIN 0 OD NAME WN O ODNAUE WN O ODNOULS WT 85 


SAN 


POROROR oR OR OR OR ORORORONONORONONONONONONONNUNNUNONONINDNY 4 3 2 
- ~« - «= 
=x 


oe ee ____..__._ e  LeeeeS S 


AAAI 


FAR GV SLO NALA OOS NONE UN OOO NONE UN ODD WARN OOO GURU 


WANA AAAI AAI AIA AIA AAAI AIAIAIAI AINA AA AIA AIAIW 


| 
Zero the context pointer | 
| 
| 


CONTEXTCO) = 0; 
RETURN SS$_NORMAL 


| 
15 
LIBSFILESCAN Search a file ye re sequence of files 18- Se 4 AX-11 Bliss-32 V4.0-74 P 3, 
vee LIBSFIND_FILE_END Clean oe after LIBSFIND_FILE 14- ~Sep- 198 99: 3§: 13 CTBRTL’S SREiL tat ILSCA n ah2;1 age 445 | 
; 1307 1389 1 END; : 
0004 000 JENTRY LIBSFIND_FILE_END, Save R2 : 1333 ; 
52 06 ac OD o002 MOVL CONTEX Pak "t . ; 1369 : 
§ D 44 TSTL (R2) , ; : 
1 O88 BEQL 3$ : : 
50 62 BO 0000, MOVE —(R2). FAB : 1375 ; 
0 6 9 0 CMPB (ABS, # ; 1376 : 
1 1 BNEQ 1$ ; . 
50 BF 1 Ad 9 1 CMPB sd (FAB), #80 : 1377 ; 
g 1 01 BEQL 2$ : . 
50 0001850C F + 0 318 1$ wove #99596, RO 3; 1379 ‘ 
52 DD 00021 28 PUSHL 2 ; 1383 : 
FB58 OCF 01 FB 9085 CALLS #1, FIND_FILE_CLEANUP : : 
be D4 00 CLRL (2) ; 1387 : 
50 1 DO Q002A 38 MOVL #1, RO ; 1388 ; 
04 00020 RET ; 1389 : 
; Routine Size: 46 bytes, Routine Base: _LIBSCODE + 0706 ; 
; 1308 1390 0 END ELUDOM ; 
FMGSFILE_SCAN== _ LIBSFILE_SCAN 3 
: PSECT SUMMARY : 
; Name Bytes Attributes : 
; _LIBSCODE 2052 NOVEC,NOWRT, RD, EXE, SHR, LCL, REL, CON, PIC,ALIGN(2) ; 
: Library Statistics | ; 
BES Pits ari ot eee Mr na eR Symbols -------- Pages Processing | ; 
: File Total Loaded Percent Mapped Time : 
; _$255$DUA28:CSYSLIBISTARLET.L32;1 9776 85 0 581 00:06.7 ! 3 
é 
| ; 


; COMMAND QUALIFIERS 


15 
LIBSEJLESCAN Sea i A eae 152: ¢ 
vOs-One TSF IND_FILE END Clean up stier Lios IND _F ILE f- 30-198 19:36:28 Hart sre Sctge tesea.o$2;1 Page 14) 
; BLISS/CHECK= (FIELD, INITIAL, OPTIMIZE) /NOTRACE/LIS=L1S$:LIBFILSCA/0BJ=OBJ$:LIBFILSCA MSRC$:LIBFILSCA/UPDATE=(ENHS:LIBFILSCA 


Size: 2044 c 36° + 8 data bytes 
; Run me: 

; Elapsed Time: 1: 

; Li : 7 : 

: Lexemes/CPU-Min: 3154 


Used: 330 pages 
; Compilation. Complete” 
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